home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / TUTORIAL.EXE / WK4PROG8.BAS < prev    next >
BASIC Source File  |  1996-03-05  |  1KB  |  51 lines
  1.  
  2.     ' WK4PROG8.BAS
  3.     ' Here is an interactive HI-LO
  4.     ' Program
  5.  
  6.     'don't use a main window
  7.     nomainwin
  8.  
  9. [start]
  10.     guessMe = int(rnd(1)*100) + 1
  11.  
  12.     ' Clear the screen and print the title and instructions
  13.     notice "HI-LO" + chr$(13) + _
  14.      "I have decided on a number between one " + _
  15.      "and a hundred, and I want you to guess " + _
  16.      "what it is.  I will tell you to guess " + _
  17.      "higher or lower, and we'll count up " + _
  18.      "the number of guesses you use."
  19.  
  20. [ask]
  21.     ' Ask the user to guess the number and tally the guess
  22.     prompt "OK.  What is your guess ?"; guess$
  23.     guess = val(guess$)
  24.  
  25.     ' Now add one to the count variable to count the guesses
  26.     let count = count + 1
  27.  
  28.     ' check to see if the guess is right
  29.     if guess = guessMe then goto [win]
  30.     ' check to see if the guess is too low
  31.     if guess < guessMe then notice "Guess higher."
  32.     ' check to see if the guess is too high
  33.     if guess > guessMe then notice "Guess lower."
  34.  
  35.     ' go back and ask again
  36.     goto [ask]
  37.  
  38. [win]
  39.     ' beep once and tell how many guesses it took to win
  40.     beep
  41.     notice "You win!  It took" + str$(count) + "guesses."
  42.  
  43.     ' reset the count variable to zero for the next game
  44.     let count = 0
  45.  
  46.     ' ask to play again
  47.     confirm "Play again (Y/N)?"; play$
  48.     if instr("YESyes", play$) > 0 then goto [start]
  49.  
  50.     end
  51.